{$CLEO .cs}
0000:









var
0@:int
3@:int
30@:int
end



:start 
repeat
wait 0
until if 0ab0: 54
04C4: store_coords_to 24@ 25@ 26@ from_actor $PLAYER_ACTOR with_offset 0.0 3.0 -1.0
24@ -= 5.0
20@ = 0
  
for 0@ = 1 to 54 step 1
    3@ = 0@
    3@ *= 4
    if 0@ == 1
    then 2@ =       #bfori                                
    end                                                   
    if 0@ == 2                                            
    then 2@ =       #BFYBE                                
    end                                                   
    if 0@ == 3                                            
    then 2@ =       #BFYBU                                
    end                                                   
    if 0@ == 4                                            
    then 2@ =       #BFYPRO                               
    end                                                   
    if 0@ == 5                                            
    then 2@ =       #BFYRI                                
    end                                                   
    if 0@ == 6                                            
    then 2@ =       #BFYST                                
    end                                                   
    if 0@ == 7                                            
    then 2@ =       #COPGRL3                              
    end                                                   
    if 0@ == 8                                            
    then 2@ =       #CROGRL3                              
    end                                                   
    if 0@ == 9                                            
    then 2@ =       #CWFYFR1                              
    end                                                   
    if 0@ == 10                                           
    then 2@ =       #CWFYHB                               
    end                                                   
    if 0@ == 11                                           
    then 2@ =       #DNFYLC                               
    end                                                   
    if 0@ == 12                                           
    then 2@ =       #DWFYLC1                              
    end                                                   
    if 0@ == 13                                           
    then 2@ =       #DWFYLC2                              
    end                                                   
    if 0@ == 14                                           
    then 2@ =       #GUNGRL3                              
    end                                                   
    if 0@ == 15                                           
    then 2@ =       #gungrl3                              
    end                                                   
    if 0@ == 16                                           
    then 2@ =       #HFORI                                
    end                                                   
    if 0@ == 17                                           
    then 2@ =       #hfybe                                
    end                                                   
    if 0@ == 18                                           
    then 2@ =       #HFYPRO                               
    end                                                   
    if 0@ == 19                                           
    then 2@ =       #HFYST                                
    end                                                   
    if 0@ == 20                                           
    then 2@ =       #mecgrl3                              
    end                                                   
    if 0@ == 21                                           
    then 2@ =       #OFORI                                
    end                                                   
    if 0@ == 22                                           
    then 2@ =       #OFyRI                                
    end                                                   
    if 0@ == 23                                           
    then 2@ =       #ofyst                                
    end                                                   
    if 0@ == 24                                           
    then 2@ =       #SBFORI                               
    end                                                   
    if 0@ == 25                                           
    then 2@ =       #SBFYPRO                              
    end                                                   
    if 0@ == 26                                           
    then 2@ =       #SBFYRI                               
    end                                                   
    if 0@ == 27                                           
    then 2@ =       #SBFYST                               
    end                                                   
    if 0@ == 28                                           
    then 2@ =       #SBFYSTR                              
    end                                                   
    if 0@ == 29                                           
    then 2@ =       #SHFYPRO                              
    end                                                   
    if 0@ == 30                                           
    then 2@ =       #SOFORI                               
    end                                                   
    if 0@ == 31                                           
    then 2@ =       #SOFOST                               
    end                                                   
    if 0@ == 32                                           
    then 2@ =       #SOFYBU                               
    end                                                   
    if 0@ == 33                                           
    then 2@ =       #SOFYRI                               
    end                                                   
    if 0@ == 34                                           
    then 2@ =       #SOFYST                               
    end                                                   
    if 0@ == 35                                           
    then 2@ =       #SWFOPRO                              
    end                                                   
    if 0@ == 36                                           
    then 2@ =       #SWFORI                               
    end                                                   
    if 0@ == 37                                           
    then 2@ =       #swfyri                               
    end                                                   
    if 0@ == 38                                           
    then 2@ =       #SWFYST                               
    end                                                   
    if 0@ == 39                                           
    then 2@ =       #SWFYSTR                              
    end                                                   
    if 0@ == 40                                           
    then 2@ =       #VBFYPRO                              
    end                                                   
    if 0@ == 41                                           
    then 2@ =       #VBFYST2                              
    end                                                   
    if 0@ == 42                                           
    then 2@ =       #VHFYPRO                              
    end                                                   
    if 0@ == 43                                           
    then 2@ =       #VHFYST3                              
    end                                                   
    if 0@ == 44                                           
    then 2@ =       #VWFYPRO                              
    end                                                   
    if 0@ == 45                                           
    then 2@ =       #VWFYST1                              
    end                                                   
    if 0@ == 46                                           
    then 2@ =       #WFORI                                
    end                                                   
    if 0@ == 47                                           
    then 2@ =       #WFYBE                                
    end                                                   
    if 0@ == 48                                           
    then 2@ =       #WFYBU                                
    end                                                   
    if 0@ == 49                                           
    then 2@ =       #WFYJG                                
    end                                                   
    if 0@ == 50                                           
    then 2@ =       #WFYPRO                               
    end                                                   
    if 0@ == 51                                           
    then 2@ =       #WFYRI                                
    end                                                   
    if 0@ == 52                                           
    then 2@ =       #WFYRO                                
    end                                                   
    if 0@ == 53                                           
    then 2@ =       #WFYSEX                               
    end                                                   
    if 0@ == 54                                           
    then 2@ =       #WFYST                                
    end                                                   
    if 0@ == 55                                           
    then 2@ =       #WFYSTEW                              
    end 
    
    if 0@ == 56                                           
    then 2@ =       #HFYRI                                
    end                                                   
    if 0@ == 57                                           
    then 2@ =       #wfycrk                            
    end                                                   
    if 0@ == 58                                           
    then 2@ =       #nurgrl3                              
    end                                                   
    if 0@ == 59                                           
    then 2@ =       #cwfyfr2                               
    end                                                   
    if 0@ == 60                                           
    then 2@ =       #sfypro                           
    end                                                   
    if 0@ == 61                                           
    then 2@ =       #wfylg                                
    end                                                   
    if 0@ == 62                                           
    then 2@ =       #vwfywa2                              
    end 
    
    0513: show_text_box_1number 'number' number 2@  // ~k~~VEHICLE_ENTER_EXIT~ Usar o Caa Nqueis $~1~   
    
    model.Load(2@)
    038B: load_requested_models 
    if model.Available(2@)
    then //0513: show_text_box_1number 'SLOT_02' number 0@  // ~k~~VEHICLE_ENTER_EXIT~ Usar o Caa Nqueis $~1~                          
    1@ = Actor.Create(Prostitute, 2@, 24@, 25@, 26@)                                     
    0639: AS_actor 1@ rotate_to_actor $PLAYER_ACTOR
    02AB: set_actor 1@ immunities BP 1 FP 1 EP 1 CP 1 MP 1

    0AC6: 30@  = label @ar offset
    30@ += 3@                                  
    0A8C: 30@ 4 1@ 0
    else 

    end           
    if 20@ >= 10
    then 
         24@ -= 10.0 //<-
         20@ = 0
         25@ += 3.0
    else 
         20@++
         24@ += 1.0 //->
    end
end

repeat
wait 0
until if 0ab0: 55
                                                                                                                                                                    
:clean
player.CanMove(0) = true
03F0: enable_text_draw 0 
for 0@ = 1 to 62 step 1
    3@ = 0@
    3@ *= 4
    0AC6: 30@  = label @ar offset
    30@ += 3@                                             
    0A8d: 1@ 30@ 4 0         
    if 1@ > 0
    jf continue
    actor.RemoveReferences(1@)
end
goto @start

:ar //hgerfsiygeauyghtyiuewhgtauewhytf
hex
 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
end
